home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 03 (1982-11)(Softdisk)(Side B).do / SPECTRUM.bas < prev    next >
BASIC Source File  |  1996-12-24  |  5KB  |  113 lines
  1. 100  TEXT : HOME : CLEAR 
  2. 110  VTAB 3
  3. 120  PRINT "*************************"
  4. 130  FOR X = 2 TO 10: PRINT "*"; SPC( 23);"*"
  5. 140  NEXT X
  6. 150  PRINT "*************************"
  7. 160  CALL  -384: POKE 34,4: POKE 35,12: POKE 32,2: POKE 33,22: CALL  -936
  8. 170  SPEED= 100
  9. 180  PRINT " PAUL'S ELECTRIC     "
  10. 190  PRINT " COMPUTER OF         "
  11. 200  PRINT " LAS VEGAS NEVADA    "
  12. 210  PRINT "                     "
  13. 220  PRINT " CREATORS OF STRANGE "
  14. 230  PRINT " AND NOVEL PROGRAMS  "
  15. 240  PRINT " IS PLEASED TO       "
  16. 250  PRINT " PRESENT ........    "
  17. 260  PRINT "                     "
  18. 270  PRINT "                     "
  19. 280  PRINT "                     "
  20. 290  PRINT "       SPECTRUM      "
  21. 300  PRINT "                     "
  22. 310  PRINT "                     "
  23. 320  PRINT "                     "
  24. 330  PRINT "                     "
  25. 340  FOR M = 1 TO 3000: NEXT M: CALL  -380: TEXT : SPEED= 255: CALL  -936
  26. 350  REM 
  27. 360  REM  ANOTHER ORIGINAL BY
  28. 370  REM   PAUL RAYMER<CTRL-J>
  29. 380  REM  BOX 42831
  30. 390  REM  LAS VEGAS NEVADA 89116
  31. 400  REM  <CTRL-J><CTRL-J>SCIENCE CAN BE FUN #1<CTRL-J><CTRL-J>
  32. 410  REM  II/XV/MCMLXXXI
  33. 420  REM (C)PEC LAS VEGAS NV
  34. 430  REM 
  35. 440  INPUT "DO YOU WISH TO READ EVERYTHING THE      AUTHOR KNOWS ABOUT LIGHT AND COLORS?    (YES/NO) ";A$
  36. 450  IF  LEFT$(A$,1) = "Y"  THEN  GOSUB 1100
  37. 460  HOME 
  38. 470  PRINT "A LIST OF EVERY PRIMARY"
  39. 480  PRINT "COLOR KNOWN TO SCIENCE"
  40. 490  PRINT 
  41. 500  PRINT "ACCORDING TO PHYSICIST"
  42. 510  PRINT "SIR ISAAC NEWTON"
  43. 520  PRINT 
  44. 530  GOSUB 1200
  45. 540  HOME 
  46. 550  VTAB 10
  47. 560  SPEED= 75
  48. 570  FOR X = 1 TO 7
  49. 580  READ C$(X)
  50. 590  NEXT X
  51. 600  FOR X = 1 TO 7
  52. 610  PRINT "COLOR # ";X,C$(X)
  53. 620  NEXT X
  54. 630  GOSUB 1200
  55. 640  HOME 
  56. 650  INPUT "WOULD YOU LIKE TO LEARN THE SECRET OF   HOW TO REMEMBER THE NAMES OF THESE      PRIMARY COLORS? (YES/NO/MAYBE) ";A$
  57. 660  IF  LEFT$(A$,1) < >"Y"  THEN 1090
  58. 670  GOSUB 1200
  59. 680  HOME 
  60. 690  PRINT "NOTE THE CLUE IN A LETTER OF EACH COLOR!IT SPELLS OUT A SENTENCE!"
  61. 700  PRINT : SPEED= 100
  62. 710  PRINT "WE WILL IDENTIFY THE LETTER AND IF YOU  REMEMBER THIS--YOU WILL ALWAYS KNOW     EVERY PRIMARY COLOR--ALMOST EVERY COLOR IN THE RAINBOW"
  63. 720  GOSUB 1200
  64. 730  HOME 
  65. 740  SPEED= 200
  66. 750  PRINT 
  67. 760  PRINT "VIOLE(T)"
  68. 770  PRINT "INDIG(O)   <--<TOE>"
  69. 780  PRINT "  BLU(E)"
  70. 790  PRINT 
  71. 800  PRINT " GREE(N)   <--<NORTH WEST>"
  72. 810  PRINT "YELLO(W)"
  73. 820  PRINT 
  74. 830  PRINT "ORANG(E)   <--<EDWARD'S NICKNAME>"
  75. 840  PRINT "   RE(D)"
  76. 850  PRINT : SPEED= 255
  77. 860  PRINT 
  78. 870  GOSUB 1200
  79. 880  HOME 
  80. 890  PRINT "SEE HOW EASY IT IS?  JUST THINK OF A    GUY NAMED <EDWARD> WHOSE <TOE> IS       POINTING <NORTH WEST> AND YOU WILL      ALWAYS REMEMBER THE PRIMARY COLORS"
  81. 900  GOSUB 1200
  82. 910  HOME 
  83. 920  PRINT "WAIT UNTIL YOU SEE WHAT WE HAVE IN STOREFOR YOU TO LEARN HOW TO REMEMBER SHAPES IN OUR SOLID GEOMETRY LESSON!"
  84. 930  GOSUB 1200
  85. 940  HOME 
  86. 950  PRINT "OUR THANKS TO THE FOLLOWING PEOPLE      WITHOUT WHOSE HELP THIS PROGRAM WOULD   NOT HAVE BEEN POSSIBLE:"
  87. 960  PRINT 
  88. 970  PRINT "THE WORLD ALMANAC - PUBLISHED BY THE      REVIEW JOURNAL OF LAS VEGAS"
  89. 980  PRINT "WEBSTER'S 7TH REVISED DICTIONARY"
  90. 990  PRINT "CHANNEL 8 NEWS TEAM"
  91. 1000  PRINT "THOMAS EDISON -- WITHOUT WHOSE LIGHT      THIS WORK WOULD HAVE HAD TO BE DONE     ONLY IN DAYLIGHT HOURS"
  92. 1010  PRINT "HENRY R WEBER FOR HIS TREATISE ON THE     'SIX COLORS OF THE RAINBOW'"
  93. 1020  PRINT "RALPH H RAYMER FOR THE ADDENDA 'SEVEN   COLORS MAKES MORE SENSE'"
  94. 1030  PRINT "ISAAC ASIMOV - RAY BRADBURY AND MORGAN  FAIRCHILD FOR THEIR INSPIRATION"
  95. 1040  FOR M = 1 TO 3000: NEXT M
  96. 1050  GOSUB 1200
  97. 1060  HOME 
  98. 1070  PRINT "...AND TO MY WIFE FOR HER KINDNESS AND    UNDERSTANDING -- ESPECIALLY ABOUT       WHAT HAPPENED AT THE COMPUTER           CONVENTION IN CHICAGO LAST SUMMER."
  99. 1080  DATA  RED,ORANGE,YELLOW,GREEN,BLUE,INDIGO,VIOLET
  100. 1090  END 
  101. 1100  HOME 
  102. 1110  PRINT "COLOR-AN ELECTROMAGNETIC WAVE           PHENOMENON-IS A SENSATION PRODUCED      THROUGH THE EXCITATION OF THE RETINA OF THE EYE IN RAYS OF LIGHT."
  103. 1120  PRINT "THE COLORS OF THE SPECTRUM MAY BE       PRODUCED BY VIEWING A LIGHT BEAM RE-    FRACTED BY PASSAGE THROUGH A PRISM WHICHBREAKS THE LIGHT INTO ITS WAVE LENGTHS."
  104. 1130  PRINT 
  105. 1140  PRINT "AUBERT ESTIMATED (1865) THE SOLAR       SPECTRUM CONTAINED 1000 DISTINGUISHABLE HUES OF WHICH ACCORDING TO ROOD (1881)  2 MILLION TINTS AND SHADES CAN BE"
  106. 1150  PRINT "DISTINGUISHED. LUCKIESH STATED (1915)   THAT 55 DISTINCTLY DIFFERENT HUES HAVE  BEEN SEEN IN A SINGLE SPECTRUM"
  107. 1160  PRINT 
  108. 1170  PRINT "BUT MANY PHYSICISTS RECOGNIZE ONLY THREEPRIMARY COLORS (RED YELLOW AND BLUE) OR (RED GREEN BLUE)
  109. 1180  VTAB 22: INPUT "===== TO CONTINUE PRESS <RETURN> ===== ";A$
  110. 1190  RETURN 
  111. 1200  SPEED= 255
  112. 1210  VTAB 22: INPUT "===== TO CONTINUE PRESS <RETURN> ===== ";A$
  113. 1220  RETURN